home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / unit9quiz (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  131 lines
  1. 2 REM UNIT9QUIZ64
  2. 3 REM COPYRIGHT (C) ANDREW COLIN 1982
  3. 5 POKE 53281,0
  4. 10 PRINT"[147][155]     QUESTION AND ANSWER PROGRAM."
  5. 20 PRINT:PRINT"      AT ALL TIMES, HIT ANY KEY TO"
  6. 30 PRINT"   GET THE NEXT QUESTION"
  7. 40 PRINT:PRINT"      ALWAYS FOLLOW YOUR REPLY
  8. 50 [153]"   WITH THE SYSRETURNLIST KEY"
  9. 60 [153]:[153]:[153]"   GOOD LUCK!"
  10. 70 [129]J[178]1[164]12:[135]Y$:[130]
  11. 80 [135]N
  12. 90 [134]Z(N)
  13. 100 [129]J[178]1[164]N:Z(N)[178]0:[130]
  14. 110 SC[178]0
  15. 120 [129]J[178]1[164]N
  16. 130 [139]Z(J)[177][178]0[167] 200
  17. 140 [130]J
  18. 150 [129]J[178]1[164]2000:[130]J
  19. 155 [153]"LOAD         YOU SCORED";SC
  20. 160 [153]:[153]"    QUESTIONS RIGHT FIRST"
  21. 170 [153]:[153]"    TIME OUT OF";N
  22. 180 [153]:[153]"    THIS IS";[181](100[172]SC[173]N[170]0.5);"PERCENT"
  23. 190 [128]
  24. 200 D[178]1[170][181](N[172][187](1))
  25. 210 [139] Z(D)[178][171]1[167]200
  26. 220 C[178]Z(D)[170]1
  27. 230 [141]1200
  28. 240 [129]T[178]1[164]3
  29. 250 [161]A$:[139]A$[178]""[167]250
  30. 260 [141]1000
  31. 270 [141]1300
  32. 280 [141]1600
  33. 285 [139]R[178]1[175]T[178]1[175]Z(D)[178]0[167] SC[178]SC[170]1
  34. 290 [139] R[178]1 [175] T[178]1 [167]Z(D)[178][171]1:[137]400
  35. 300 [139] R[178]1 [167] 320
  36. 310 [130]T
  37. 320 Z(D)[178]Z(D)[170]1:[137]120
  38. 400 [137]120
  39. 1000 [153]"LOAD"
  40. 1010 [153]"LOAD"
  41. 1020 [129]J[178]0[164]39:[151]1024[170]J,160:[151]55296[170]J,C:[130]
  42. 1030 [129]J[178]0[164]920[169]40:[151]1103[170]J,160:[151]55375[170]J,C:[130]
  43. 1040 [129]J[178]39[164]0[169][171]1:[151]1984[170]J,160:[151]56256[170]J,C:[130]
  44. 1050 [129]J[178]920[164]0[169][171]40:[151]1064[170]J,160:[151]55336[170]J,C:[130]
  45. 1055 W[178]2:[139][195](X$)[177]110[167]W[178]1
  46. 1060 P[178]1:J[178]3: K[178]3
  47. 1070 A$[178][202](X$,P,1):P[178]P[170]1
  48. 1080 [139]A$[178]"#"[167] 1150
  49. 1090 [139]A$[178]"%"[167]J[178]J[170]W:K[178]3:[137]1070
  50. 1095 [139]A$[178]"\"[167] A$[178][199](34)
  51. 1100 [151]1024[170]40[172]J[170]K,[198](A$)[175] 63:[151]55296[170]40[172]J[170]K,15:K[178]K[170]1
  52. 1110 [137]1070
  53. 1150 [142]
  54. 1200 [140]
  55. 1215 [129]J[178]1[164]12:[135]X$:[130]
  56. 1220 [135]N
  57. 1230 [129]J[178]1[164]D
  58. 1240 [135]X$:[135]Y$
  59. 1245 X$[178]X$[170]Y$:[135]Y$
  60. 1250 [130] J
  61. 1260 [142]
  62. 1300 [153]"SPC(CMD";
  63. 1305 A$[178]""
  64. 1307 [161]Q$:[139]Q$[178]""[167] 1307
  65. 1309 [139][198](Q$)[179][177]20 [167]1314
  66. 1310 [139]A$[178]""[167]1307
  67. 1311 [153]"CMD CMD";:A$[178][200](A$,[195](A$)[171]1):[137]1307
  68. 1314 [139][198](Q$)[178]13 [167] 1321
  69. 1315 [139] Q$[179]"0" [176] (Q$[177]"9" [175] Q$[179]"A")[176] Q$[177]"Z" [167] 1307
  70. 1316 [153]Q$;
  71. 1317 A$[178]A$[170]Q$:[137]1307
  72. 1321 P[178][195](A$):[139] P[178]0[167]1300
  73. 1322 [139][198]([201](A$,1))[179][177]32[167]1330
  74. 1323 A$[178][202](A$,1,P[171]1)
  75. 1326 [137]1321
  76. 1330 [139] [200](Y$,1)[179][177]"%"[167]1380
  77. 1340 P[178]2
  78. 1350 [139][202](Y$,P,1)[179][177]"-"[167]P[178]P[170]1:[137]1350
  79. 1360 [139][197](A$)[177][178][197]([202](Y$,2,P[171]1))[175][197](A$)[179][178][197]([202](Y$,P[170]1,[195](Y$))) [167]1500
  80. 1370 R[178]0:[142]
  81. 1380 P[178]1
  82. 1390 [139][202](Y$,P,1)[178]"#"[167]1370
  83. 1400 Q[178]P
  84. 1410 [139][202](Y$,Q,1)[179][177]"%"[167]Q[178]Q[170]1:[137]1410
  85. 1420 [139][202](Y$,P,Q[171]P)[178]A$[167]1500
  86. 1430 P[178]Q[170]1:[137]1390
  87. 1500 :R[178]1:[142]
  88. 1600 [140]
  89. 1620 S[178]6[172](1[171]R)[170][181](6[172][187](1))[170]1
  90. 1630 [129]J[178]1[164]S:[135]Z$:[130]
  91. 1640 [153]"LIST";Z$
  92. 1650 [139]T[179][178]2 [167] [137]1750
  93. 1660 [153]"THE RIGHT ANSWER IS":[153]"";
  94. 1670 [139] [200](Y$,1)[178]"%"[167]1710
  95. 1680 P[178]1
  96. 1690 [139][202](Y$,P,1)[178]"%"[167][137]1750
  97. 1700 [153][202](Y$,P,1);:P[178]P[170]1:[137]1690
  98. 1710 [153][202](Y$,2,[195](Y$)):[137]1750
  99. 1750 [153]"SYS   NOW TYPE ANY KEY":[142]
  100. 2000 X$[178]"ABCD"
  101. 2010 [133]Y$
  102. 2020 [139]X$[178]Y$[167]2050
  103. 2030 [153]"NO":[137]2000
  104. 2050 [153]"YES"
  105. 2060 [144]
  106. 8010 [131]YES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK
  107. 8020 [131]NO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT
  108. 9000 [131]7
  109. 9010 [131]"   HOW CAN YOU GET OUT OF A LOOP%WITHOUT SPOILING YOUR%PROGRAM?%%
  110. 9015 DATA"A) HIT RUN/STOP%B) PRESS RESTORE%C) SWITCH OFF THE MACHINE%#",A%#
  111. 9020 DATA"   DOES THE RESTORE KEY SPOIL THE%PROGRAM?%%",#,NO%N%#
  112. 9030 DATA"   WHAT FUNCTION IS CODED BY A%REVERSED E ?%%A) CTRL AND WHT%B) CTRL "
  113. 9035 DATA"AND GRN%C) SHIFT AND X%D) SHIFT AND E%%#","CTRL AND WHT%A%#"
  114. 9040 DATA"   IT IS LEGAL TO INCLUDE A%COMMAND LIKE%%150 TI$ = \090000\%%IN A PRO"
  115. 9045 DATA"GRAM, BUT IS IT SENSIBLE?%#",NO%N%#
  116. 9050 DATA"   WHICH OF THESE SPOILS THE%SETTING OF THE CLOCK?%%A)THE RUN/STOP KEY%B)
  117. 9055 [131]"THE RESTORE KEY%C)LOADING A NEW PROGRAM%D)SWITCHING OFF%E)NONE OF THESE%#
  118. 9057 DATA"SWITCHING OFF%D%#
  119. 9060 [131]"   WHEN YOU TYPE RUN/STOP AND%RESTORE THE SCREEN IS%CLEARED.HOW DO YOU GE
  120. 9065 DATA"T YOUR%PROGRAM BACK?%%A)LIST IT%B)RETYPE IT%C)SOME OTHER WAY%D)YOU CAN'T#
  121. 9067 [131]"LIST IT%LIST%A%#
  122. 9070 DATA  WHAT HAPPENS TO THE CLOCK AT%MIDNIGHT?%%A) IT STICKS AT \235959\%B) IT
  123. 9075 DATA" GOES ON TO \240000\%C) IT GOES BACK TO \000000\%#",C%#
  124. 9080 DATA"   IF X HAS THE VALUE 73,%  X >= 73 IS%%A) TRUE%B) FALSE%C) ILLEGAL"
  125. 9085 DATA"%%#",TRUE%A%T%#
  126. 9090 DATA"   \LAMP\=\LAMPOON\%%  TRUE OR FALSE?%",#,FALSE%F%#
  127. 9100 DATA"  CONSIDER:%%10 RS=5%20 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17 THEN 20%"
  128. 9105 DATA"50 STOP%%   HOW MANY TIMES ROUND THE LOOP?%#",6%#
  129. 9110 DATA"  LOOK AT:%%10 SJ$=\F\%20 PRINT SJ$%30 SJ$=\J\+SJ$+\K\%40 IF SJ$ <"
  130. 9115 DATA" \JJJ\ THEN 20%50 STOP%WHAT IS THE LAST VALUE DISPLAYED?%#",JJFKK%#
  131.